unit codemyth.form.eastegg;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, RzStatus, RzButton, ExtCtrls, RzPanel, jpeg, StdCtrls, RzLabel,
    RzBorder;

type
    TFormEastEgg = class( TForm )
        Image1: TImage;
        lblInfo: TRzLabel;
        RzBorder1: TRzBorder;
        Image2: TImage;
        procedure RzBorder1Click( Sender: TObject );
    private
        { Private declarations }
    public
        constructor Create( const aInfo: string ); reintroduce;
    end;

implementation

{$R *.dfm}

{ TFormEastEgg }

constructor TFormEastEgg.Create( const aInfo: string );
begin
    inherited Create( Owner );
    lblInfo.Caption := aInfo;
end;

procedure TFormEastEgg.RzBorder1Click( Sender: TObject );
begin
    Close;
end;

end.

